home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / med res demo (.txt) < prev    next >
Commodore BASIC  |  1993-12-17  |  3KB  |  75 lines
  1. 10 PRINT"[147][142]":POKE53281,0:POKE53280,12:FORXX=1TO100
  2. 15 OI=1
  3. 20 FORXX=1TO31STEP2:PX=38-(XX/2):PY=21-(XX/2):SX=XX:SY=XX:C=2:PRINT"[147]":POKE679,C
  4. 21 POKE680,PX:POKE681,PY:POKE682,SX:POKE683,SY:SYS49152:NEXT
  5. 30 FORXX=31TO1STEP-2:PX=38-(XX/2):PY=21-(XX/2):SX=XX:SY=XX:C=10:PRINT"[147]":POKE679,C
  6. 31 POKE680,PX:POKE681,PY:POKE682,SX:POKE683,SY:SYS49152:NEXT
  7. 40 OI=OI+1:IFOI<4THEN20
  8. 50 GOSUB6060:CV=13:GOSUB6200:PRINT"[147]"
  9. 55 X(1)=9:X(2)=19:X(3)=29:X(4)=39
  10. 56 C(1)=2:C(2)=10:C(3)=7:C(4)=10
  11. 59 FORIM=0TO50
  12. 60 FORIK=1TO4
  13. 65 PX=39-(X(IK)/2):PY=24-(X(IK)/2):SX=X(IK):SY=X(IK):C=C(IK):POKE679,C
  14. 66 POKE680,PX:POKE681,PY:POKE682,SX:POKE683,SY:SYS49152:NEXT
  15. 70 FORIL=1TO4:X(IL)=X(IL)+2:IFX(IL)=41THENX(IL)=1
  16. 75 NEXT:NEXT
  17. 80 GOSUB6060:CV=14:GOSUB6200:POKE53281,14:PRINT"[147]"
  18. 90 OO=1:CW=10:GOSUB6210:CW=5:GOSUB6210:CW=4:GOSUB6210:CW=7:GOSUB6210
  19. 95 CW=8:GOSUB6210:CW=0:GOSUB6210:OO=0
  20. 100 FORXU=1TO10:ONXUGOSUB103,104,105,106,107,103,104,105,106,107:GOTO110
  21. 103 CD=10:RETURN
  22. 104 CD=14:RETURN
  23. 105 CD=7:RETURN
  24. 106 CD=13:RETURN
  25. 107 CD=4:RETURN
  26. 110 YP=INT(RND(1)*34+8):FORXV=0TO79:ONINT(RND(1)*6+1)GOTO111,113,115,117,120,120
  27. 111 IFYP<48THENYP=YP+.5
  28. 112 GOTO120
  29. 113 IFYP>1THENYP=YP-1
  30. 114 GOTO120
  31. 115 IFYP>1THENYP=YP-.5
  32. 116 GOTO120
  33. 117 IFYP<48THENYP=YP+1
  34. 118 GOTO120
  35. 120 SYS51000,XV,YP,CD:NEXT:NEXT
  36. 130 GOSUB6060:CV=3:GOSUB6200:PRINT"[147]"
  37. 150 POKE679,4:POKE680,8:POKE681,6:POKE683,4:FORA=1TO40:POKE682,A:PRINT"[147]"
  38. 160 SYS49152:NEXT:POKE679,10
  39. 165 FORA=4TO25:POKE683,A:PRINT"[147]":SYS49152:NEXT:POKE679,13
  40. 170 FORA=1TO37:POKE682,PEEK(682)-1:POKE680,PEEK(680)+1:PRINT"[147]":SYS49152:NEXT
  41. 175 POKE679,14:FORA=1TO20:POKE683,PEEK(683)-1:POKE681,PEEK(681)+1:PRINT"[147]"
  42. 180 SYS49152:NEXT:POKE679,7:FORA=3TO34:POKE682,A:PRINT"[147]":SYS49152:NEXT
  43. 185 POKE679,2:FORA=1TO15:POKE681,PEEK(681)-1:POKE683,PEEK(683)+2:PRINT"[147]"
  44. 190 SYS49152:NEXT:POKE679,5:FORA=1TO33:POKE680,PEEK(680)+1:POKE682,PEEK(682)-1
  45. 195 PRINT"[147]":SYS49152:NEXT:PRINT"[147]":FORA=1TO1000:NEXT
  46. 200 CW=2:OO=1:GOSUB6210:CW=0:GOSUB6210:OO=0
  47. 5995 END
  48. 6000 POKE56334,0:POKE1,51:FORA=0TO7:CH(A)=PEEK(53248+CH*8+A):NEXT:POKE1,55
  49. 6005 POKE56334,1:RETURN
  50. 6010 XS=1:IFSX<0THENXS=-1
  51. 6012 YS=1:IFSY<0THENYS=-1
  52. 6015 FORA=PXTOPX+SX STEP XS:SYS51000,A,PY,C:SYS51000,A,PY+SY,C:NEXT
  53. 6020 FORA=PYTOPY+SY STEP YS:SYS51000,PX,A,C:SYS51000,PX+SX,A,C:NEXT:RETURN
  54. 6030 GOSUB6000:FORA=0TO7:GOSUB6050:FORB=0TO7:IFBT(B)THENSYS51000,LX+B,LY+A,LC
  55. 6040 NEXT:NEXT
  56. 6050 FORZ=0TO7:BT(7-Z)=CH(A)AND2^Z:NEXT:RETURN
  57. 6060 POKE198,0
  58. 6065 GETA$:IFA$<>" "THEN6065
  59. 6070 POKE198,0:RETURN
  60. 6080 POKE648,192:PRINT""M$:POKE648,4:FORXZ=1TOLEN(M$):CH=PEEK(49151+XZ)
  61. 6090 LX=XM+(XZ-1)*8:LY=YM:LC=MC:GOSUB6030:NEXT:RETURN
  62. 6100 FORA=0TOINT(SI/4):FORB=0TOSI:SYS51000,X1+B,Y1+A,C1:NEXT:NEXT
  63. 6110 FORA=INT(SI/4)+1TOINT(SI/1.3):FORB=1TOABS(SI-1):SYS51000,X1+B,Y1+A,C2
  64. 6120 NEXT:NEXT
  65. 6130 FORA=INT(SI/1.3)+1TOINT(SI):FORB=0TOSI:SYS51000,X1+B,Y1+A,C1:NEXT:NEXT
  66. 6140 RETURN
  67. 6150 FORA=0TOS2:FORB=0TOS2STEPS2/4:FORBA=0TOS2/12:SYS51000,X2+A,Y2+B+BA,C3
  68. 6160 NEXT:NEXT:NEXT:RETURN
  69. 6200 FORTT=24TO0STEP-1:POKE680,24-TT:POKE681,24-TT:POKE682,TT*2+31
  70. 6205 POKE683,TT*2+1:POKE679,CV:SYS49152:FORTU=0TO100:NEXT:NEXT:RETURN
  71. 6210 FORTT=24TO0STEP-1:POKE680,24-TT:POKE681,24-TT:POKE682,TT*2+31
  72. 6220 POKE683,TT*2+1:POKE679,CW:SYS49152:NEXT
  73. 6230 IFOOTHENPOKE53281,CW:PRINT"[147]"
  74. 6240 RETURN
  75.